!**************************************************
!        数据输入输出常用函数库
!**************************************************
! open_or_not(ninit) 判断通道号是否可用
!**************************************************
!     判断通道号是否已被用
      SUBROUTINE OPEN_OR_NOT(NUNIT)
        INTEGER NUNIT
        LOGICAL UNIT_OPEN
        NUNIT=11
        UNIT_OPEN=.TRUE.
        DO WHILE(UNIT_OPEN)
          NUNIT=NUNIT+1
        INQUIRE(UNIT=NUNIT,OPENED=UNIT_OPEN)
        END DO
      END SUBROUTINE
!***********************************************
!**** this is the end of datio.f90 *************
!***********************************************
